COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN  "ttest"
C00004 ENDMK
C⊗;
BEGIN  "ttest"


DEFINE ! = " COMMENT ";

 REQUIRE "MAKETF.REL[AL,HE]" LOAD_MODULE;
   EXTERNAL PROCEDURE MAKETFILE (REFERENCE STRING MESSG);
   EXTERNAL PROCEDURE INITMTF;

 REQUIRE "TRJDPY.REL[AL,HE]" LOAD_MODULE;
   EXTERNAL PROCEDURE DISPLAY(STRING MESSG,NAME("TTEST.DAT"),TRJLAB(NULL));

PRINT("READ A TRAJECTORY FILE? ");

IF (INCHWL LAND '137)="Y" THEN 
    WHILE TRUE DO BEGIN "VIEW LOOP"
	STRING NAME,LAB;
	PRINT("TRAJECTORY FILE: ");
	NAME←INCHWL;
	IF NAME=NULL THEN DONE;
	PRINT("TRAJECTORY LABEL: ");
	LAB←INCHWL;
	DO BEGIN 
	    DISPLAY(" "&NAME&": "&LAB,NAME,LAB);
	    PRINT("TRAJECTORY LABEL: ");
	    LAB←INCHWL
	END UNTIL LAB=NULL
    END

ELSE BEGIN
    INITMTF;
    WHILE TRUE DO
	BEGIN "driver"
	STRING MESSG;
	MAKETFILE(MESSG);
	DISPLAY(MESSG);
    END "driver";
END


END "ttest";